Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/tidalwav/tidalwav.frm

Text File | 1995-05-08 | 8KB | 244 lines

VERSION 2.00
Begin Form Tidalwav
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Tidal Wav"
   ClientHeight    =   4425
   ClientLeft      =   1950
   ClientTop       =   1515
   ClientWidth     =   5925
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "Futura Md BT"
   FontSize        =   8.25
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   4830
   Icon            =   TIDALWAV.FRX:0000
   Left            =   1890
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4425
   ScaleWidth      =   5925
   Top             =   1170
   Width           =   6045
   Begin DirListBox Dir1
      Height          =   1875
      Left            =   3060
      TabIndex        =   1
      Top             =   2340
      Width           =   2595
   End
   Begin DriveListBox Drive1
      Height          =   315
      Left            =   3060
      TabIndex        =   0
      Top             =   1860
      Width           =   2595
   End
   Begin FileListBox File1
      Height          =   2370
      Left            =   240
      Pattern         =   "*.wav"
      TabIndex        =   2
      Top             =   1860
      Width           =   2655
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Play"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Futura Md BT"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1695
      Left            =   3060
      TabIndex        =   3
      Top             =   0
      Width           =   2595
      Begin PictureBox Picture3
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   435
         Left            =   1980
         Picture         =   TIDALWAV.FRX:0302
         ScaleHeight     =   435
         ScaleWidth      =   555
         TabIndex        =   9
         Top             =   1020
         Width           =   555
      End
      Begin CommandButton Command1
         Caption         =   "&Directory"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Futura Md BT"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Left            =   120
         TabIndex        =   4
         Top             =   1020
         Width           =   1635
      End
      Begin PictureBox Picture2
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   1980
         Picture         =   TIDALWAV.FRX:0604
         ScaleHeight     =   495
         ScaleWidth      =   495
         TabIndex        =   6
         Top             =   360
         Width           =   495
      End
      Begin CommandButton Command2
         Caption         =   "&Current"
         Default         =   -1  'True
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Futura Md BT"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Left            =   120
         TabIndex        =   5
         Top             =   360
         Width           =   1635
      End
   End
   Begin Frame Frame2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Edit"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Futura Md BT"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1695
      Left            =   240
      TabIndex        =   7
      Top             =   0
      Width           =   2655
      Begin PictureBox Picture4
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   1920
         Picture         =   TIDALWAV.FRX:0906
         ScaleHeight     =   495
         ScaleWidth      =   555
         TabIndex        =   12
         Top             =   1020
         Width           =   555
      End
      Begin CommandButton Command3
         Caption         =   "&Kill"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Futura Md BT"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Left            =   120
         TabIndex        =   10
         Top             =   1020
         Width           =   1635
      End
      Begin CommandButton Command4
         Caption         =   "&Wave"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "Futura Md BT"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Left            =   120
         TabIndex        =   8
         Top             =   360
         Width           =   1635
      End
      Begin PictureBox Picture1
         BackColor       =   &H00C0C0C0&
         BorderStyle     =   0  'None
         Height          =   615
         Left            =   1920
         Picture         =   TIDALWAV.FRX:0C08
         ScaleHeight     =   615
         ScaleWidth      =   615
         TabIndex        =   11
         Top             =   300
         Width           =   615
      End
   End
End
Declare Function sndPlaySound Lib "MMSystem" (ByVal lpsound As String, ByVal flag As Integer) As Integer

Sub Command1_Click ()
    Tidalwav.MousePointer = 11
    Counter = 0
    While Counter < File1.ListCount
        File1.ListIndex = Counter
        Call File1_Click
        X = sndPlaySound(PlayFile$, 2)
        Counter = Counter + 1
    Wend
    Tidalwav.MousePointer = 0
End Sub

Sub Command2_Click ()
    X = sndPlaySound(PlayFile$, 1)
End Sub

Sub Command3_Click ()
    If Not (File1.FileName = "") Then
        Msg$ = "Remove " + RTrim$(PlayFile$) + " from disk ?"
        Reply% = MsgBox(Msg$, 276, "BYE BYE WAV FILE !")
        If Reply% = 6 Then
            If File1.ListIndex < (File1.ListCount - 1) Then
                Position = File1.ListIndex
            Else
                Position = File1.ListIndex - 1
            End If
            Kill PlayFile
            File1.Refresh
            File1.ListIndex = Position
        End If
    End If
End Sub

Sub Command4_Click ()
    Run$ = "soundrec.exe " + PlayFile
    X% = Shell(Run$, 1)
End Sub

Sub Dir1_Change ()
    File1.Path = Dir1.Path
End Sub

Sub Drive1_Change ()
    Dir1.Path = Drive1.Drive
End Sub

Sub File1_Click ()
    If Len(File1.Path) = 3 Then
        PlayFile = File1.Path + File1.FileName
    Else
        PlayFile = File1.Path + "\" + File1.FileName
    End If
End Sub

Sub File1_DblClick ()
    Call Command2_Click
End Sub